home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Modify / l-note-condense < prev    next >
Text File  |  1998-08-11  |  287b  |  10 lines
  1. l-note-condense length-pattern
  2.  
  3. This function condenses a sequence of notes-lengths into the sum of its parts.
  4.  
  5. (l-note-condense '(-1/20 -1/20 1/20 1/20 1/20))
  6. => (-1/20 -1/20 3/20)
  7.  
  8. (l-note-condense '((-1/20 -1/20 1/20 1/20 1/20) (1/8 1/16 -1/16)))
  9. => ((-1/20 -1/20 3/20) (3/16 -1/16))
  10.